Top 10k strings from Data Genie (1984)(Audiogenic Software)(128k).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TZX] (TOSEC-v2007-01-01) /
Back to the directory listing
4 elim=lim-on: 4 /@T/@T/@T/ 3 o+th,fi;a$(o,tw 3 (lre*ei),ze: 2 r+tw,c+on;"Exit "; 2 r+tw,c+ON;"Exit"; 2 r+ei,c+on; 2 p$;" ": 2 on;"0 FIELD ERROR" 2 on;" "; 2 lim=r+ th: 2 elim=lim+on: 2 DATA GENIE 2 88888888888888888888888888888888 2 /@T/@T/@T/@ 2 "Which? ";wh: 1 ze;" ";b$(ed1-(smax*(cseg-on)),ed3 1 ze;" ";b$(ed1-(smax*(cseg-1 1 y$(on)="s" 1 y$(on)="r" 1 y$(on)="S" 1 y$(on)="R" 1 x=x-(x>-on): 1 u+tw,ze;u; 1 test=test+(a$(f,tw 1 te,tw;"S T O P T H E T A P E ": 1 te)=" "): 1 segs=segs-1 1 recp=recp-on 1 recp=recp+smax*(cseg-1 1 rec=rec-on: 1 rec=rec+on 1 rec-smax*(segs-1 1 r+tw,c+on;"Exit "; 1 r+th,c+on;"Search "; 1 r+th,c+on;"Save Records "; 1 r+th,c+on;"Print CUR/REC"; 1 r+th,c+on;"Enter record "; 1 r+th,c+ON;"Edit line ": 1 r+th,c+ON;" ";x;" field(s)"; 1 r+th,c+ON; 1 r+si,c+on;"CUR/REC ";recp; 1 r+si,c+on;" microdrive "; 1 r+si,c+on;" "; 1 r+si,c+on;" "; 1 r+si,c+fo; 1 r+se,c+on;"TOTL-REC ";rec; 1 r+se,c+on;" cassette "; 1 r+se,c+on;" "; 1 r+se,c+on; 1 r+se,c+fo; 1 r+on,c+on;"PRINT RECORD"; 1 r+on,c+on;" ENTER RECORD "; 1 r+on,c+on;" STORAGE "; 1 r+on,c+on;" SEARCH "; 1 r+i,c+on;o$ 1 r+fo,c+on;"View records "; 1 r+fo,c+on;"Other "; 1 r+fo,c+on;"Load Records "; 1 r+fi,c+on;"Verify Records"; 1 r+fi,c+on;"More than 1 "; 1 r+fi,c+on;"Delete Records"; 1 r+fi,c+on;"CUR/REC ";recp 1 r+fi,c+on;" "; 1 r+ei,c+on;"Name: ";N$ 1 r+ei,c+on;"MAX-REC ";max 1 r+ei,c+on;"CUR/REC=";recp 1 r+ei,c+on;" "; 1 r+ON,c+ON;"ENTER FIELDS"; 1 r+ON,c+ON;" NO OF FIELDS "; 1 r+ tw,c+on;"Exit "; 1 q$(ON)="y" 1 q$(ON)="Y" 1 printer=ZE: 1 printer;"Screen"; 1 printer;"Printer"; 1 printer)+1 1 p;ze,cl*ei-on 1 p;ze,-(cl*ei-on): 1 p;rl*ei+se,ze: 1 p;c*ei,175 1 p;-(rl*ei+se),ze: 1 p$;"VERIFY DATA": 1 p$;"STORAGE ": 1 p$;"SET UP FILE": 1 p$;"SEARCH ": 1 p$;"SAVE DATA": 1 p$;"PRINT RECORD": 1 p$;"NO OF FIELDS ": 1 p$;"MAIN MENU ": 1 p$;"LOAD DATA": 1 p$;"LENGTH ERROR": 1 p$;"ENTER RECORD ": 1 p$;"ENTER FIELDS ": 1 p$;"EDIT LINE ": 1 p$;"DELETE RECORDS ": 1 p$;"CLEAR FIELDS ": 1 on;a$(z,tw 1 on;a$(u,tw 1 on;a$(kl,tw 1 on;A$(num,tw 1 on;(lre*ei),ze: 1 on;"DATA GENIE IS FULL": 1 on;"0 REC ERROR": 1 on;"0 REC ERROR" 1 on;" :"; 1 on;" "; 1 on;" "; 1 ni;"Record ";rek: 1 n$="DATA ": 1 max=smax*3 1 k$+ON))+k$ 1 i+lre-on)=q$: 1 i$=" 615 5 512": 1 i$=" 6 814 510": 1 i$=" 6 8 3 510": 1 i$=" 6 0 42014": 1 i$=" 510 61014": 1 i$=" 5 5 4 815": 1 i$=" 41110 513": 1 i$=" 4 2 21313": 1 i$=" 3 8 6 516": 1 i$=" 3 7201110": 1 i$=" 3 7 71015": 1 i$=" 3 415 716": 1 i$=" 2 615 715": 1 i$=" 2 521 810": 1 i$=" 110 61015": 1 elim=lim-ON: 1 elim=lim+x-ON: 1 elim=lim+tw: 1 elim=lim+th: 1 elim=lim+fo: 1 elim=lim+fi: 1 elim=lim+ tw: 1 elim=lim+ se: 1 ed4=ed4-(ed4>1 1 ed3=(ed4-1 1 ed3+lre-on): 1 ed3+(lre-on)): 1 ed2=ed2+lre: 1 ed2+lre-on) 1 ed2+(lre-on)) 1 ed1=ed1+on: 1 dg screen 1 c$=b$(on): 1 b$(smax)=d$ 1 b$(rec-smax*(w-on))="" 1 b$(rec+on-smax*(cseg-on),i 1 b$(ed1-(smax*(cseg-on)),ed3 1 address=sta: 1 a+r,c;s$(on 1 a$(rr-th)=( 1 a$(ra-th)="": 1 a$(o+on)="": 1 a$(o)=a$(o+on): 1 a$(kl,on)=" " 1 a$(kl,on));":"; 1 a$(ed4,on));":"; 1 ZE;" " 1 VERSION 3.0 - Terry 1 VERSION 2.0 - Richard 1 Sub for print at 20 1 STR=STR+(lre* 1 STR=ADD-sta: 1 S$=" ": 1 R+fo,C+on;"CONT search "; 1 Place data in file 1 ON;"field ";rr-th; 1 ON;"LENGTH ERROR": 1 ON;" " 1 LENF=22004 1 GENIE2 1 GENIE1 1 Enter true record 1 ERROR MESSAGES 1 ED3=STR-RECP*(lre* 1 ED3=((ED4-on)*lre)+on 1 Delete record now 1 ADD>(sta+lenf) 1 ADD<(sta+lenf) 1 A.H.C.Powell 1 A+R,C;S$(on 1 <BBliquidBB|DB 1 ;test;" FIELD ERROR(S)": 1 ;"DATA GENIE": 1 ;" "; 1 -smax*(dseg-1 1 -lre);b$(rek-(smax*(cseg-on)),ed2 1 ,ze;a$(ed4,tw 1 ,si;"0 REC ERROR" 1 ,si;" ": 1 ,fo;" "; 1 ,fo;" ": 1 ,ei;"Record "; 1 )/smax)+on: 1 )/smax)+on 1 )/SMAX)+on 1 ))*(lre*15 1 (a$(z,on))); 1 (STR/(lre* 1 (ED3/lre)+on: 1 (A$(NUM,on))); 1 "m";on;n$: 1 "Yes or No? ";q$: 1 "Which? ";del: 1 "VERIFY DATA","Exit ","Verify data" 1 "To? ";to: 1 "Search>";F$: 1 "SAVE DATA","Exit ","Save data" 1 "Name: ";N$(on 1 "LOAD DATA","Exit ","Load data" 1 "LENGTH ERROR";: 1 "How many fields? ";x: 1 "From? ";fr: 1 "EDIT LINE","Exit ","Insert ","Delete ","Up ","Down " 1 "Do you wish to REPLACE a file"''"or SAVE a new one ? (R OR S)"'' 1 "Data length(10-20)?";da: 1 "DELETE RECORDS","Exit ","Delete CUR/REC","Other record ","SYSTEM RESET " 1 "CLEAR FIELDS","Exit ","Yes " 1 "65499"+n): 1 "22000"/lre): 1 "21",se;" ": 1 "21",ni;" ": 1 "21",ZE;" "; 1 "21",ZE;" ": 1 "21", se;" ": 1 "20",ze;" STOP THE TAPE ": 1 "20",tw;"PRESS ANY KEY TO VERIFY DATA": 1 "20",tw;"PRESS ANY KEY TO RECORD DATA": 1 "20",tw;"PRESS ANY KEY TO LOAD DATA": 1 "20",tw;" WAITING FOR DATA " 1 "20",ei;" ": 1 "20", ei;" STOP THE TAPE": 1 "11");" ": 1 " p r cclrl" 1 " SET UP FILE ","Exit","No fields ","Enter field ","Clear fields "," SYSTEM RESET " 1 " DATA GENIE ","Set up file ","Enter record","Search ","Storage ","CLS ","Print record","Exit ","SINCLAIR SET","GENIE SET ","SYSTEM RESET" 1 " VIEW ","Exit ","Edit up ","Edit down","Rec up ","Rec down ","Edit rec ","LIST-REC ","LOOK " 1 " ";: 1 AUDIOGENIC 1 ADD>(sta+lenf) 1 m/c delete 1 DESFORGES 1 WILEY 1 1 1